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MiSSlNr, "WITH" IN FILL STATEMENT. 

improper fill element, 

non-octal character in octal fill* 

improper array row designator 'in f 

DATA IN FILL EXCEEDS lo23 WORDS, 
ODD NUMBER OF PARENTHESES IN FILL. 
MISSING FILE ID I'M MONITOR DEC. 

IN MONITOR 



ILL 



left parenthesis 
subscript 
subscript 

ELEMENT. 

NUMBER OF SUBSCRIPTS IN MONITOR LIST 



DEC. 

FOR MONITOR LIST ELEMENT, 
EXPRESSION DELIMITER IN 



T: 
T: 
T: 

T: 

T: 

MT 

MT 
MT 

MT 
MT 

mi 

MT 

AC 

AC! MISSING 

AC J IMPROPER 

AC5 IMPROPER 

ONJTOR LIST 

AC StMPROPeR 

LFM r NT. 

AC5LA3FL OR SWITCH MONiTORF.n AT IMPKOPFR LAVEL, 

AC:?MPROPFR MONITOR LIST ELEMENT. 

ACCMISSING RIGHT PARENTHESIS IN MONITOR DECLARATION, 

ACMMPROPFR MONITOR DECLARATION OFLIMlTFR, 

ISSjNo FILE IDFNTIFIER JN DUMP DECLARATION. 

isstNc, lfft parenthesis in dump declaration, 

UBSrRjPTED VARiARLF IN DUMP LIST HAS wRONfi NUMBER OF 

UBScRTPTS. 

URSCRIPTED VARIABLE IN DU M P LIST HAS WRONG NUMBER OF 

UBSCRIPTS. 

MPRnPFR ARRAY DUMP LIST ELEMENT, 

LLFGAL DUMP LI ST ELEMENT, 

ORE THAN 100 LaRFLS APPEAR AS OlJMP LIST ELFMENTS 

N OMF DUMP DECLARATION, 

LLfraL nilMP LIST ELEMENT nFLlMlrfR. 

ISSlNr, DUMP LABEL jN DyMP DECLARATION. 

lSS|Nr, COLON IN DUMP DFCI-A^aT ION . 

MPRpPEP DUMP DECLARATION DELIMITER. 

MTJmISSInG I, EFT PARENTHESIS IN READ 

MTimISSING LEFT PARENTHESES im R EAD 

tatfmemt, 

mt: missing file in read statement, 

mt: improper release indicator. 

mi: improper file delimiter in read statement 



statement, 
reversf 



00194000 
00195000 
00196000 
00197000 
00198000 
00199000 
00200000 
00201000 
O020P000 
00203000 
00204000 
00205000 
00206000 
00207000 
00208000 
00209000 
00210000 
00211000 
00212000 
0021 3000 
0021 4000 
00215000 
00216000 
0021.7000 
00218000 
00218110 
00219000 
00220000 
00221 000 
00222000 
0022300Q 
00224000 
00225000 
00226000 
00227000 
00228000 
00229000 
00230000 
00231000 
00232000 
00233000 
00234000 
00235000 
00236000 
00237000 
00238000 
00239000 
00240000 
00241000 
00242000 
00243000 
00244000 
00245000 
00246000 
00247000 
00248000 
00249000 



L. 

C 

c 

c 
c 
o 
c 
c 
c 
o 
o 



o 



o 
c 
o 
o 
o 
o 
o 
o 
o 

o 



u 



o 
u 

o 
o 

;-0 
"O 

o 

o 
o 
o 
o 
o 
o 
o 
o 
o 
o 



425 
426 

427 
4 28 

430 

131 
4 32 
433 

4 34 
435 
4 36 
437 
'138 
4 39 
4/(0 

441 

442 

443 

444 
445 

446 
447 

448 
449 
450 
451 
452 
453 

454 
455 
456 
457 
456 

459 
460 
461 
46? 
463 

464 

4 65 



RE 
RE 

RF 

Rf 

Re 
re 

ha 

ha 

HA 
SP 

sp 

sp 
sp 

WR 
WR 
WR 

WR 

WR 

WR 

WR 
WR 

WR 

WR 

Wr 
RE 
LO 
LO 
LO 
LO 

LO 
CL 

CL. 
CL 
CL 

CL 

RW 
RW 
RW 

bl 

RL 
IN 



APST 
ADST 
S 
APST 
ADST 

S 

APST 
ADST 

s 
ndle 

F 
NDLF 

L 
NDLF 

n 

ACE^ 
ACES 
ACES 
ACES 
ITES 
ITES 
ITES 

U 
ITES 


ITES 

S 
ITFS 

S 
TT F S 
TTES 

I 
ITES 
ITFS 

ITES 
ADST 
CKST 
CKST 
CKST 
CKST 
S 
C«ST 
OSfS 
OSfS 
OSfS 
OSf~S 

s 

OSfS 

ndst 

NDST 
NDST 
OCKI 

P 
OCK J 


LINF 



MT:i 
M T : J 

TATr 

MT: t 

MT : t 

TATr 

M T : M 

MT: T 

TATF 

THET 

ILE 

THFT 

ABEL 

THTT 

Rack 

TMT; 
TmT: 
TmT : 

TmT: 

TmT; 

TMT: 

tmt j 

RITE 
TMT; 
F A 
TMT: 

TATF 

TMTj 

TATF 

TMT: 

TMT: 

N A 

TmT; 

TmT: 

TATF 

TMT; 



MT 

MT 
MT 
MT 
MT 



TATF 
MT:M 
TMT: 
TMT; 
TMT: 
TMT : 

TATr 
TMT; 
MT : m 
MT 1 y 
M T : h 
A MO 
ART 
A DH 
F A 
! MT 



MPR 

MPR 

MFN 
MPR 
MPR 

Mj-N 
[SS 

MPR 
MEN 
Alt 
LAP 
All 
JN 

AH- 
FT 
MjS 
IMP 
MIS 
MIS 
MIS 
IMP 
IMP 
ST 
MT5 
WRI 
ILL 
MpN 
IMP 
MpN 
IMP 
M?S 
WRI 
MIS 

imp 

MEN 
IMP 
MPR 
ISS 
MPR 
ISS 
MPR 
MEN 
ISS 
MyS 
IMP 

mis 

IMP 

mfm 
Mrs 
r ss 

MPR 

ISS 

NIT 

OF 

MP 

PRO 

SSI 



PER 
PER 

PF_R 

pfR 



FORMAT DELI MITE 
DELIMITER FOR S 

ROW DESIGNATOR 
ROW DESIGNATOR 



NQ r 0W DESIGNATOR I 
PER DELIMITER PRICE 



MDOFA 
L IM 
NnOFA 

R r a n 

NnOrA 
N RFA 
TNG |. 
OPFR 
I NO C 
ING R 

ING L 
OPER 
OPER 
I E M E N 
ING R 
E ST A 
GAL C 



reaOo 

REA» 
RFAD0 
OR SP 

RfaoO 

OR 
EFT P 
FIL.F 

OMMA 

IfiHT 

FFT P 

FILE 

QFLIM 

T, 

IGHT 

TFMFN 

AHRT A 



rspacesta 
or space 
nsPacfsta 
ace state 
rsRacfsta 
spacf sta 

ARFNThESI 
inFMTlFlE 

in space 

PARFmTHfS 

arEnthesi 
identifie 

ITER FOR 



R IN READ STATEMENT, 
FC0ND PARAMETER IN READ 

IN RfAD statfment. 

OELIMITER IN RFAD 

N RFAD STATEMENT. 

FDING THE LIST TN A READ 

TEMEmT: IMPROPER END OF 

statement* 

temfnt: improper parity 

ment. 

te m fnt* missing right 

TEMrUT. 

S IN SPACE STATEMENT, 

R IN SPACE STATEMENT. 

STATEMENT, 

IS i N SPACE STATEMENT, 

S IN A WRITE STATEMENT. 

R IN A WRITE STATEMENT, 

FIRST PARAMETER IN A 



BRACKET I| 

T. 

GE CONTROI 



N CARRIAGE CONTROL PART 
L DELIMITER IN a WRITE 

« 

oper sfcond parameter dflimiteR in write 



opfr row designator 
tng Right paRenthfS 

E STATIMENT. 

inc. row designator 

OPER DELlMl TER PREC 

■ 

OPER LIST DELIMITER 
PER LIST DELIMITER 
NG LEFT PARENTHESIS 
PER FILF PART IN A 
NG COMMA IN A LOCK 
PER UNIT DISPOSlTiO 

NG RIGHT PARENTHESI 
ING left PARENTHESI 

opfr file part jn a 
t ng comma in a clos 

OPrR UN?T DlSPOSTT I 

TNG KirhT RARENTHFS 
NG LEFT PARENTHFSfS 
PER FILE PART IN a 
NG RIGHT PARENTHESI 
R DECLARATION APPEA 

PROCEDURE. 
ECLARATjON APPEARS 
EDURE. 
G PARAMETER IOENTlF 



IN A WRITE STATEMENT, 
T S AFTER A ROW DESlGNATO 

IN A WrjTE statfment. 

FEDInG A LIST IM A WRITE 

IN A WRITE STATEMENT, 
IN A READ STATEMENT. 

IN A LOCK STATEMENT, 
LOCK STATEMENT, 
STATEMENT, 
N PART IN A LOCK 

S IN A LOCK STATEMENT, 
S IN A CLOSF STATEMENT, 

CLOSE STATFMENT. 
F STATEMENT, 
ON PaRT IN A CLOSE 

IS IN A CLOSF STATEMENT. 

IN A RFWIND STATEMENT, 
REWimD STATEMENT, 
S IN A REWIND STATEMENT. 
RS In THE SPECIFICATION 

IN THE SPECIFICATION PAR 

TER IN INLINE STREAM 



00250000 
00251000 
00252000 
00253000 
00254000 
00255000 
00256000 
00257000 
002^8000 
00259000 
00260000 
00261000 
00262000 
00263000 
00264000 
00265000 
00266000 
00267000 
00266000 
00269000 
00270000 
00271000 
00272000 
00273000 
00274000 
00275000 
00276000 
00277000 
00278000 
00279000 

R00280000 
00281000 
00282000 
002B3000 
00284000 
00285000 
00286000 
00287000 
00288000 
00209000 
002^0000 
00291000 
00292000 
00293000 
00294000 
00295000 
00296000 
00297000 
00293000 
00299000 
00300000 
00301000 
00302000 
00303000 

T00304000 
00305000 
00305001 



C 

c 
c 
c 

c 






c 

c 
c 
c 






c 
c 
c 
c 
c 
c 



c 



v_. 



O 



o 



"O 



io 






O 



u 



o 

o 
o 
o 

o 

3 
J 
D 



500 
520 
521 
600 
601 
60? 
603 
604 
605 
61 
611 

I 

t 

BEGIN 



statfmfnt parameter list, 
.ids .needs double pfriod for prl'e if past 51? 
tarle» string longer than one w0«0 (48 hits), 
table: string contains a non-pfthmissirle character, 
dollarcaRd* number EXPrcrEn. 
dollarcaRd: option identifier expfctfd. 
dollaRcaRd 5 ron many useR-dfftned options. 
dollarcaRds unrfcognizfd word or character, 
dollarcard : mismatched parentheses, 
dollarcard! 4 in card col.umn 1. for om]t card 

RFADACARD! SeQUFNCF ERROR. 

RFADACARD: ERRoR LIMIT HAS BEEN EXCEEDED. 



OMMFNT OU 
INTEGER ERRORCO 

INTEGER SAVETIM 



INTEGER 

INTEGER 

BOOLFA 

COM 

pla 

REAL RR 
COM 

COM 
REAL ST 

integfR 

BFG 



FnD 
COMMENT 



BEGIN C 

INTEGfR 
BOOLEAN 

INTEGE 

DEFINF 
ARRAY 

BOOLEAN 

DEFINF 



CARONUmB 

cardcoun 

N BUf L.DLI 

ME NT RR) - 

CE OF LOG 
1 »RR?,RR3 
MENT SOME 

TO THE 

MENT EXAM 

REAM PROC 

BEGIN S 

STR F AM P 

IN Sl«-L0C 

SKtP 3 

DUI..OC 

GETf; 

START SE 

IF FXAM 

BEGIN R 

IF EXAM 

BEGIN R 

IF FXAM 

RF 

BEGIN R 

IF EXAM 

BE 

BE 

ommfnt ma 

opinx; % 

setting; 

R NFWlNX, 

OPARSIZF 
PTlQNSCOl 
OPTtONWO 

cmfckbt 

DFBUGBI 
DFCKBIT 
FORMATB 
IMTBIT 



TFRMO 

unt; 

SY 

e; co 

IF 

er; % 
t; 
nE; 
RRl 1 
ALS T 
>RR4» 

OF T 
MAIN 
IN RE 
FDURF 
T«-NCR 
ROCFD 

GETF 
DB; 9 

q;si<- 

TTing 
IN(RR 
Hi*-?.i 
IN(RR 
R3«-2>' 
IN(RR 
GIN R 
R5*J ; 
lM(RR 
GIN R 
GIN R 
IN BL 
USFD 
% US 
ADDV 
= POO 
OPARS 
RDJ 
T 
T 

IT 



SI BL 

comhe 

NTX F 

MMFNT 

Cf)MP 

SFO 

% k .Um 

ARF U 

SAV 
RR«S>R 
HE RR 
BLOCK 
TURNS 

FXAM 

;nt«-L 

UR F g 
' SI* 
(IF S 

qjds*. 

UP F 

1 WGF 
RR?*1 
11+5) 

Rr4* 
11 + 10 
R5*?j 
RR6*5 
11 + 15 
R8«.J0 
R8-56 

oc«; 

FOR 
ED BY 
ALUE» 

*; 
izfi; 



oc«; 

NT NUMRER OF 

RR AT EOj jr 

SAVF-FACTOR 

TLF & GO =0, 



ERROR mSrS. MCP WILL TYPE 

THIS IS NON-ZERO, MUST RE 0R+25; 

FOR COnE FILE* GIVEN BY MCP. 

FOR SYNTAX. =«1. MUST BE AT R+?6 



* of card being processed. 
ber of cards processed. 

sed in some procedures in 

f stack space,' 

r6>rr7»rr8>rr9»rr10.rr1u 

t arf used to pass file information 

THE CHARACTER AT ArSOLUTf ADDRESS NCR; 

tncncr); valuf ncr; 

OC FXAMTNJnj*DI+7; DS*-CHR end; 
FTFfO);VAl,UF 0' 

si-7![h*i.oc q;di«-di+5; 

b thfm ds*sei else ds^reset; skip SB); 

wds;si«.qjgftf*Si 

ilf parameters; 

tf(3h"y06") 4-x7 ihfn rrw5 else 

50 end; 

<M2 THEN RR3*4 ELSf " 
150 end; 
)-12 THEN 
RR6«-10;RR7<-150 END fL-SF 

6;rr7<-jo end; 

1=1? THEN 
;RR9*j50 END ELSe 

;rr9<-}0 fnd; 

INDEXING INTO OPTIONS ARRAY. 
DOLLARCARD FOR AN P T I M " S SETTING. 
BASENUM, T0TAL.NO; 



\*» 
?*, 
3*. 
Hit-, 
bit. 



0030500? 
00305100 
00306200 
00306300 
00/400000 
00401000 
00/103000 
00404000 
00/105000 
00406000 
OO/mOOOO 
0041 1000 
00/(90000 
00500000 
00501000 
00502000 
00503000 
;00504000 

oobo/noo 

00504150 
00504700 
00505000 
00506000 
00507000 
00509000 
00509000 
00510000 
00511000 
00512000 
00523000 
00524000 
005?5000 
00526000 
00527000 
00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 
00535000 
00536000 
00537000 
00538000 
OlOOOOOO 
01000800 
Ot 000602 
01000860 

01000902 
Oi 000904 

01000910 
01000920 
01000930 
OJ000940 
0)000950 
0)000960 



C 



^ 



c 

o 



o 

G 

o 
o 
o 
o 
o 
c 
o 
o 



o 



c 



o 



u 



»*T .™ ' " r ^ a 



LABEL O000OOO0OLPAPRNT00l76278?USERaB57OO i EXECUTE COPY /B5700 

FILE' SYMBOL/ ESPOL MON 10/04/76 03530PM 



COPY /B5700.. 



C 



o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



2000 
3000 
4000 
5000 
6000 
7000 

aooo 

9000 
10000 
11000 
12000 

13000 
14000 

15000 

16000 

17000 

18000 

19000 

20000 

21000 

22000 

23000 

24000 

25000 

26000 

27000 

28000 

29000 

30000 

31000 

32000 

33000 

34000 

35000 

36000 

37000 

38000 

39000 

40000 

41000 

42000 

43000 

44000 

45000 
46000 

47000 
48000 
49000 
50000 
51000 
52000 



ERROR 
000 
001 

002 



003 



004 



00' 



006 



007 



00B 



009 



010 



oil 

012 

013 
014 
015 
016 

017 

013 
019 

020 

021 

022 



023 

024 
025 



026 



NUMBER ROUTINE JERRQR MESSAGE 

BLOCKS DECLARATION NOT FOLLOWED BY SEMICOLON. 
BLOCK: IDENTIFIER DECLARED TWICE IN SAME BLOCK, 
PROcEDUREDEc* SPECIFICATION PART CONTAINS 
IDENTIFIER NOT APPEARING IN 

FORMAL PARAMETER PART, 
BLOCK: NON-IDENTIFIER APPEARS IN IDENTIFIER 

LIST OF DECLARATION, 
PROCEDUREDEC! STREAM PROCEDURE DECLARATION 

PRECEDED BY ILLEGAL DECLARATOR. 

PROCEDURE DECLARATION PRECEDED 

BY ILLEGAL DECLARATOR, 

PROCEDURE IDENTIFIER USED BEFORE 

IN SAME BLOCKCNOT FORWARD). 

PROCEDURE IDENTIFIER NOT FOLLOWED 

BY ( OR SEMICOLON IN PROCEDURE 

DECLARATION, 

FORMAL PARAMETER LIST NOT FOLLOWED 

BY ). 

FORMAL PARAMETER PART NOT FOLLOWED 

BY SEMICOLON, 

VALUE PART CONTAINS IDENTIFIER 

WHICH DID NOT APPEAR IN FORMAL 

PARAPART, 

VALUE PART NOT ENDED BY SEMICOLON. 

MISSING OR ILLEGAL SPECIFICATION 

PART. 

OWN USED IN ARRAY SPECIFICATION. 

SAVE USED IN ARRAY SPECIFICATION. 



PROCEDUREDEC! 
PROCEDUREDEC! 
PROCEDUREDEC: 

PROCEDUREDEC; 
PROCEDUREDEC; 
PROCEDUREDEC! 



PROCEDUREDEC: 
PROCEDUREDEC: 

PROCEDUREDEC: 
PROCEDUREDEC: 



Esyoo 
e^Poi 



BLOCK: DECLARATION PRECEDED BY ILLEGAL DECLARATOR. 



ARRAYDEC 

arraydec: 

arraydec: 
arrayspec: 

BLOCK! 
BLOCK: 
BLOCK! 



BLOCK: 

PROCEDUREDEC: 
BLOCK! 



FILEDEC: 



ARRAY ID IN DECLARATION NOT FOLLOWED 

BY [ , 

LOWER BOUND IN ARRAY DEC NOT 

FOLLOWED BY ! , 

BOUND PAIR LIST NOT FOLLOWED BY ]. 

ILLEGAL LOWER BOUND DESIGNATOR IN 

ARRAY SPECIFICATION. 

OWN APPEARS IMMEDIATELY BEFORE 

IDENTIFIERCNO TYPE), 

SAVE APPEARS IMMEDIATELY BEFORE 

IDENTIFIERCNO TYPE). 

STREAM APPEARS IMMEDIATELY BEFORE 

IDENTIFIERCTHE WORD PROCEDURE LEFT 

OUT). 

DECLARATOR PRECEDED ILLEGALLY BY 

ANOTHER DECLARATOR. 

LABEL CANNOT BE PASSED TO FUNCTION, 

DECLARATOR OR SPECIFIER ILLEGALLY 

PRECEDED BY OWN OR SAVE OR SOME 

OTHER DECLARATOR, 

MISSING ( IN FILE DEC. 



s 

^ 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
o 
o 



o 



o 



o 
o 
o 
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o 
o 
o 
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o 
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o 
o 
o 
o 
o 
o 
o 

o 



53000 


027 


54000 




55000 


028 


56000 




57000 


029 


58000 


30 


59000 




60000 


031 


61000 


032 


62000 


033 


63000 




64000 


034 


65000 


035 


66000 




67000 


036 


68000 


037 


69000 


038 


69100 


04 


69500 


050 


69510 


051 


69520 


052 


69530 


05 3 


69540 


054 


69560 


056 


69570 


057 


69980 


098 


69990 


099 


70000 


100 


71000 


101 


72000 




73000 




74000 




75000 


102 


76000 


103 


77000 




78000 


1.04 


79000 


105 


60000 


106 


aiooo 


107 


82000 


108 


83000 




R4000 


109 


85000 


110 


86000 




87000 


111 


88000 




89000 


112 


90000 




91000 


113 


92000 




93000 


1.14 


94000 




95000 


115 


96000 


116 


97000 


117 


98000 


118 


99000 


119 



FILEDEC: 
FILEDEC: 

FILEDEC: 
PRQCEDUREDEC 

LISTDEC! 

FORMATDEC: 

SWITCHDEC: 



NO, OF BUFFERS IN FILE DEC MUST BE 
AN UNSIGNED INTEGER, 
ILLEGAL BUFFER PART OR SAVE FACTOR 
IN FILE DEC, 
MISSING ) IN FILE DEC, 
PROCEDURE TYPE AT ACTUAL DECLARATION 
TIME DIFFERENT THAN AT FORWARD DEC, 
MISSING ( IN LISTDEC, 
MISSING ( IN FORMAT DEC, 
SWITCH DEC DOES NOT HAVE «■ OR 
FORWARD AFTER IDENTIFIER, 
SWITCHFILEDECJMISSING * AFTER FILED, 
SWITCHFILEDECJNON FILE ID APPEARING IN DECLARATION 

OF SWITCHFILE. 
SUPERFQRMATDECSFORMAT ID NOT FOLLOWED BY <- 
SUPERFORMATDECSMISSING C AT START OF FORMATPHRASE , 
SUPERFORMATDECSFORMAT SEGMENT >1022 WORDS, 

SEGMENT: SAVE CODE EXCEEDS 4080 WHICH KERNAL CAN H/L 
ANYWHERE: OUT OF RANGE OF C RELATIVE ADDRESSING FOR CONSTANT 
BLOCK 5 ILLEGAL F RELATIVE ADDRESS EXP IN DECLARATION 
iLOCK: PROCEDURE WHOSE BODY NOT A BLOCK 

ARRAYDEC: CANT FIND RIGHT BRACKET IN SAVE ARRAY OEC 
ARRAYDEC: FILL PART OF SAVE ARRAY DEC LONGER THAN SIZE 
ARRAYDEC: ILLEGAL DIMENSION INDICATOR IN ARRAY DEC 
SEGMENTSTARTtSAVE STORAGE NOT ALLOWED WITH INTRINSIC OPTION 
IOSTMT: ILLEGAL SPECIFIER IN SCOPE STMT* MUST BE >15, 
INLINE: EXTRA : IN STREAM HEAD, 
ANYWHERE: UNDECLARED IDENTIFIER, 
CHECKER! AN ATTEMPT HAS BEEN MADE TO ADDRESS AN 

IDENTIFIER WHICH IS LOCAL TO ONE PROCEDURE AND GLOBAL 
TO ANOTHER. IF THE QUANTITY IS A PROCEDURE NAME OR 
AN OWN VARIABLE THIS RESTRICTION IS RELAXED. 
AEXP! CONDITIONAL EXPRESSION IS NOT OF ARITHMETIC 
PRIMARY: PRIMARY MAY NOT BEGIN WITH A QUANTITY OF 
TYPE. 

MISSING RIGHT PARENTHESIS, 
MISSING LEFT PARENTHESIS, 
PRIMARY MAY NOT START WITH DECLARATOR, 
EXPRESSION IS NOT OF BOOLEAN TYPE. 
RELATION MAY NOT HAVE CONDITIONAL EXPRESSIONS 



e 



TYPEH 
THIS 



ANYWHERE 
ANYWHERE: 
PRIMARY: 
PEXP: THE 
EX'PRSS: A 



IS NOT BOOLEAN, 
A BOOLEAN 



AS THE ARITHMETIC EXPRESSIONS, 
BOOSECSIMPBOO, AND BOOCOMP: THE PRIMARY 
BOOCOMP: A NON-BOOLEAN OPERATOR OCCURS IN 

EXPRESSION, 
BOOPRIM: NO EXPRESSION (ARITHMETIC, BOOLEAN* OR DESIGNA- 

TIONAL) MAY BEGIN WITH A QUANTITY OF THIS TYPE. 
BOOPRIM: NO EXPRESSION (ARITHMETIC, BOOLEAN* OR DESIGNA- 

TIONAL) MAY BEGIN WITH A DECLARATOR. 
PARSE: EITHER THE SYTAX OR THE RANGE OF THE LITERALS FOR 

A CONCATENATE OPERATOR IS INCORRECT, 
DOTSYNTAX: EITHER THE SYNTAX OR THE RANGE OF THE LITERALS 

FOR A PARTIAL WORD DESIGNATOR IS INCORRECT, 
DEXP: THE EXPRESSION IS NOT OF DES IGN AT ION AL TYPE, 
IFCLAUSE* MISSING THEN, 
BANA: MISSING LEFT BRAKET. 
BANA! MISSING RIGHT BRAKET, 
COMPOUNDTAIL* MISSING SEMICOLON OR END, 



c 
c 
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c 
c 
c 
c 
c 
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c 

o 
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100000 


120 


loiooo 


121 


102000 




103000 




104000 




105000 


122 


106000 




107000 


123 


108000 




109000 


124 


110000 




111000 


125 


112000 




11 3000 


126 


114000 




115000 


127 


116000 




117000 


128 


118000 




119000 


129 


120000 


130 


121000 


131 


122000 


132 


123000 


133 


124000 


134 


125000 


135 


126000 


136 


127000 


137 


128000 




129000 


133 


130000 




131000 


139 


132000 


140 


133000 


141 


134000 




135000 


142 


136000 




137000 


143 


138000 


144 


139000 


145 


140000 


146 


141000 




142000 




143000 


147 


144000 




145000 


148 


146000 




147000 


149 


148000 




14 9000 


150 


150000 




151000 


151 


152000 


152 


153000 


153 


154000 


154 


155000 


155 


156000 


156 



cdmpdundtail: missing end. 

actualparapart: an indexed file may be passed by name 

only and only to a stream procedure - the stream 

procedure may not do a release on this type para- 
METER. 
ACTUALPARAPART! STREAM PROCEDURE MAY NOT HAVE AN 

EXPRESSION PASSED TO IT BY NAME. 
ACTUALPARAPART: THE ACTUAL AND FORMAL PARAMETERS DO NOT 

AGREE AS TO TYPE. 
ACTUALPARAPART: ACTUAL AND FORMAL ARRAYS DO NOT HAVE SAME 

NUMBER OF DIMENSIONS, 
ACTUALPARAPART: STREAM PROCEDURES MAY NOT BE PASSED AS A 

PARAMETER TO A PROCEDURE. 
ACTUALPARAPART: NO ACTUAL PARAMETER MAY BEGIN WITH A 

QUANTITY OF THIS TYPE. 
ACTUALPARAPART: THIS TYPE QUANTITY MAY NOT BE PASSED TO A 

STREAM PROCEDURE. 
ACTUALPARAPART: EITHER ACTUAL AND FORMAL PARAMETERS DO 

NOT AGREE AS TO NUMBER* OR EXTRA RIGHT PARENTHESIS. 
ACTUALPARAPART: ILLEGAL PARAMETER DELIMITER. 

relsestmt: no file name, 

dostmt: missing until. 

whilestmt; missing do, 

labelrt missing c olon. 

labelh: the label was not declared in this block, 

labelr! the label has already occljred. 

formatphrase: improper format editing phrase. 

FORMATPHRASE! a FORMAT EDITING PHRASE DOES NOT HAVE AN 

INTEGER WHERE AN INTEGER IS REQUIRED. 
FORMATPHRASE: THE WIDTH IS TOO SMALL IN E OR F EDITING 

PHRASE. 
TABLE: DEFINE IS NESTED MORE THAN EIGHT DEEP, 
MEXTENT: AN INTEGER IN A FORMAT IS GREATER THAN 1023, 
SCANNER: INTEGER OR IDENTIFIER HAS MORE THAN 63 

CHARACTORS, 
0EFINEGEN1 A DEFINE CONTAINS MORE THAN 2047 CHARACTORS 

(BLANK SUPPRESSED). 
COMPOUNDTAIL: EXTRA END. 
STMT: NO STATEMENT MAY START 

START 
START 



WITH 
WITH 
WITH 



THIS TYPE IDENTIFIER. 
THIS TYPE QUANTITY. 
A DECLARATOR - MAY BE 
OR A MISPLACED 



PROCEDURE 

EXPRESSIONS IN A SWITCH 



STMT: NO STATEMENT MAY 
STMT: NO STATEMENT MAY 

A MISSING END OF A 

DECLARATION. 
SW1TCHGENJ MORE THAN 256 

DECLARATION. 
GETSPACE: MORE THAN 1023 PROGRAM REFERENCE 

ARE REQUIRED FOR THIS PROGRAM. 
GETSPACF8 MORE THAN 255 STACK CELLS ARE REQUIRED FOR THIS 

PROCEDURE, 
ACTUALPARAPART: CONSTANTS MAY NOT BE PASSED BY NAME TO 

STREAM PROCEDURES, 
FORSTMT: IMPROPER FOR INDEX VARIABLE, 

FORSTMT: MISSING LEFT ARROW FOLLOWING INQEX VARIABLE, 
FORSTMT: MISSING UNTIL OR WHILE IN STEP ELEMENT. 
FORSTMT: MISSING DO IN FOR CLAUSE. 
IFEXP: MISSING ELSE 
LISTELEMENT: A DESIGN ATI ONAL EXPRESSION MAY NOT BE A LIST 



TABLE CELLS 
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c 
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c 
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157000 
158000 

159000 
160000 
161000 
162000 
163000 
164000 
165000 
166000 
167000 
168000 
169000 
170000 
171000 
172000 
173000 
174000 
175000 
176000 
177000 
178000 
179000 
180000 
181000 
132000 
183000 
184000 
185000 
186000 
187000 
188000 
189000 
190000 
191000 
192000 
193000 
194000 
195000 
196000 
197000 
198000 
199000 
200000 
201000 
202000 
203000 
204000 
205000 
206000 
207000 
208000 
209000 
210000 
211000 
212000 
213000 



157 
158 
159 

160 
161 
163 
163 
200 
201 

202 
203 

20 4 
205 

206 
207 
208 
209 

210 
211 
250 
251 
252 
253 
254 
255 
256 

257 



258 
259 
260 
261 
262 
263 
264 
265 
266 
267 

268 

269 

281 
282 
283 
284 

285 
300 



ELFMEN 

listelement 
listelement 
procstmt: 
purge; DEC 

PURGE! DEC 

zipstmt: m 
fqrmatphras 
emit: SEG 

SIMPLE VARI 

I 
SIMPLE VARI 
SUBSCRIPTED 

D 
SUBSCRIPTED 
SUBSCRIPTED 

A 
SUBSCRIPTED 
SUBSCRIPTED 
SUBSCRIPTED 
SUBSCRIPTED 

M 
SUBSCRIPTED 

VARIABLE! P 
STREAM STMT 
ANY STREAM 
INDEX! MISS 
INDEX! MISS 
EMITC! NUMB 
DSS8 MISSIN 
RELEASES! M 

A 

GOTOSM.ABEL 

N 

L 

labels: mis 
labels: lab 
gotos: miss 
jumps: miss 
nests! miss 
ips:missing 
ifsi missin 
ifss missin 
ifsj missin 
fredfix: th 

UNDEFI 
EMITC! A R 

FORMAL 
TABLE: A CO 

OR TOO 
DBLSTHT: M 
UBLSTMT: t 

dblstmt: t 

DBLSTMT: m 

dblstmt: m 
fillstmt: 



T, 

! A ROW 

: MISS 

ILLEGAL 

LARED L 

LARED F 

ISSING 

E: THE 

MENT TO 

ABLE: P 

N A LEF 

ABLE! M 

VARIAB 

ESIGNAT 

VARIAB 

VARIAB 

N ACTUA 

VARIAB 

VARIAB 

VARIAB 

VARIAB 

OST IN 

VARIAB 
RQCEDUR 
5ILLEGA 
STMT PR 
ING + 
ING NUM 
ER>63 
G STRIN 
ISSING 

FORMAL 
S>OR JU 
EST LEV 
ABEL. 
SING :. 
EL APPE 
ING LAB 
ING OUT 
ING PAR 

SC IN 
G RELAT 
G ALPHA 
G THEN 
ERE ARE 
NED. 
EPEAT I 

PARAME 
NSTANT 

SMALL. 
ISSING 
00 MANY 
00 MANY 
ISSING 
ISSING 
THE IDE 
AN ARRA 



DESIGN 

ING RIG 

USE OF 

ABEL DO 
ORWARD 
COMMA I 
WIDTH 

LARGE 
ARTIAL 
T PART 
ISSING 
LE: WRO 
OR. 

LEJ MIS 
LE! A R 
L PARAM 
LE: MIS 
LE: MIS 
LE! WRO 
LE: PAR 
A LEFT 
LE! MIS 
E ID US 
L STREA 
OCEDURE 
R - . 
8ER OR 
R NUMBE 
G IN DS 
PARENTH 

PARAME 
MPS: LA 
EL AS A 



ATOR MAY 
HT BRAKET 
PROCEDUR 
ES NOT OC 
PROCEDURE 
N ZIP STA 
OF A FIEL 



4093 
DESI 



C > 

WORD 
LIST. 
. OR «■ . 
NG NUMBER 



NOT BE A 

IN GROUP 
E OR FUNC 

CUR. 

DOES NOT 
TEMENT 
D IS MORE 
SYLLABLES 
GNATOR NO 



LISTELEMENT 

OF ELEMENTS 
TION IDENTIFIER 

OCCUR. 

THAN 63. 

T LEFT-MOST 



OF SUBSCRIPTS IN A ROW 



iSlGNATOR. 
!ARS OUTSIDE OF 
STATEMENT. 



SING ] IN A ROW DE! 

OW DESIGNATOR APPE< 

ETER LIST OR FILL 

SING 3. 

SING C. 

NG NUMBER OF SUBSC 

TIAL WORD DESIGNAT 

PART LIST. 

SING . OR «■ . 

ED OUTSIDE OF SCOPE IN LEFT PART. 

M STATEMENT, 

! MISSING <-. 



RIPTS. 

OR NOT LEFT- 



STREAM VARIABLE, 
R OF LABELS+LOCALS 
«- LIT STATEMENT, 
ESIS OR FILE IDENT 
TER 

bel'specified is N 

PRECEDING APPEARA 



+F0RMALS>63, 

IFIER IS NOT 

OT ON THE SAME 
NCE OF THE 



ARS MORE THAN ONCE. 

EL IN A GO TO OR JUMP OUT TO STATEMENT, 

IN JUMP OUT STATEMENT. 
ENTHESIS, 
IF STATEMENT, 
IONAL IN IF STATEMENT, 
>DC OR STRING IN IF STATEMENT, 
INIF STATEMENT. 

GO TO STATEMENTS IN WHICH THE LABEL IS 

NDEX > 64 WAS SPECIFIED OR TOO MANY 

TERS, LOCALS AND LABELS, 

IS SPECIFIED WHICH IS TOO LARGE 

(. 

OPERATORS, 
OPERANDS, 



c 
c 
c 
c 
c 
c 
c 
c 



) . 

NTIFIER FOLLOWING 
Y IDENTIFIER, 



"FILL" IS NOT 



c 
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r~ 

c 
c 
c 
c 
c 
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21/4000 
215000 
216000 
217000 
218000 
218110 
219000 
220000 
221000 
222000 
223000 
224000 
225000 
226000 
227000 
228000 
229000 
230000 
2 31000 
232000 
233000 
234000 
235000 
236000 
2 37000 
238000 
239000 
240000 
241000 
242000 
243000 
244000 
245000 
246000 
247000 
248000 
249000 
250000 
251000 
252000 
253000 
254000 
255000 
256000 
257000 
258000 
259000 
260000 
261000 

262000 
263000 
264000 
265000 
266000 
267000 
268000 
269000 



301 
302 
303 
304 

3 05 
306 
400 
401 
402 
40 3 

40 4 

405 
406 
407 
408 
409 

4 1 
411 

412 

413 
414 
415 

416 
417 
418 
4 19 
420 
421 

4 22 
42 3 
424 
425 
426 

427 
428 

429 
430 

431 

4 32 

433 

4 34 
4 35 
4 36 
437 
4 38 



FILLSTM 
FILlSTM 
FILLSTM 
FILLSTM 
FILLSTM 
FILLSTM 
MERRIMA 
MERRIMA 
MERRIMA 
MERRIMA 
MO 
MERRIMA 

EL 
MERRIMA 
MERRIMA 
MERRIMA 
MERRIMA 
MU P : M I 
DMUPSMI 
DMUP:SU 

SU 

dmup:su 

SU 
OMUPS IM 
OMUPJ IL 
DMUP1MQ 

IN 
DMUPHL 
OMUPJMI 
DMUP'.MI 
DMUPS IM 
READSTM 
READSTM 

ST 
READSTM 
READSTM 
READ5TM 
READSTM 
READSTM 

ST 
READSTM 
READSTM 

ST 
READSTM 
READSTM 

ST 
HaNDLET 

FI 
HANDLET 

LA 
HANDLET 

BR 
SPACEST 
SPACEST 
SPACEST 
SPACEST 
WRITES! 



T: 

T! 

t: 

t: 

t: 

ts 

c:M 

C:M 

C!I 

C:l 

NIT 

c:l 

EME 

C :L 

c: I 

c: M 

c: I 

SSI 

SSI 
BSC 

DSC 
BSC 
BSC 
PRO 
LEG 
RE 

ON 
LEG 
SSI 
SSI 
PRO 
T:M 
T:m 
ATE 
T:M 
T:l 
T:I 
t;i 
TU 
ATE 
TJI 
T:I 

ATE 
T:M 

T:l 

ATE 

HET 

LE 

HET 

BEL 

HET 

ACK 

MT: 

MT5 

mt: 
mt; 
mt; 



miss in 
improp 
non-oc 

IMPRDP 
DATA I 
ODD NU 
ISSING 
ISSING 
MPROPER 
MPROPER 
OR LIST 
MPROPER 
NT, 

ABEL OR 
MPROPER 
ISSING 
MPROPER 
NG FILE 
NG LEFT 
RIPTED 
RIPTS. 
RIPTED 
RIPTS, 
PER ARR 
AL DUMP 
THAN 10 
E DUMP 
AL DUMP 
NG DUMP 
NG COLO 
PER DUM 
ISSING 
ISSING 
MENT. 
ISSING 
MPROPER 
MPROPER 
MPROPER 
MPROPER 
MENT. 
MPROPER 
MPROPER 
MENT. 
ISSING 

MPROPER 
MENT, 
AILENDO 
LABEL I 
AILENDO 
IN RE A 
AILENDO 
ET IN R 
MISSING 
IMPROPE 
MISSING 
MISSING 
MISSING 



G "WITH" IN FILL STATEMENT. 

ER FILL ELEMENT. 

TAL CHARACTER IN OCTAL FILL. 

ER ARRAY ROW DESIGNATOR IN FILL, 

N FILL EXCEEDS 1023 WORDS. 

MBER OF PARENTHESES IN FILL. 

FILE ID IN MONITOR DEC, 

LEFT PARENTHESIS IN MONITOR DEC. 

SUBSCRIPT FOR MONITOR LIST ELEMEN 

SUBSCRIPT EXPRESSION DELIMITER IN 

ELEMENT. 

NUMBER OF SUBSCRIPTS IN MONITOR L 



1ST 

L. 

RATION, 



SWITCH MONITORED AT IMPROPER LAVE 

MONITOR LIST ELEMENT. 
RIGHT PARENTHESIS IN MONITOR DECLA 

MONITOR DECLARATION DELIMITER. 

IDENTIFIER IN DUMP DECLARATION. 

PARENTHESIS IN DUMP DECLARATION, 
VARIABLE IN DUMP LIST HAS WRONG NUMBER OF 

VARIABLE IN DUMP LIST HAS WRONG NUMBER OF 

AY DUMP LIST ELEMENT. 

LIST ELEMENT. 
LABELS APPEAR AS DUMP LIST ELEMENTS 
DECLARATION, 

LIST ELEMENT DELIMITER. 

LABEL IN DUMP DECLARATION, 
N IN DUMP DECLARATION, 
P DECLARATION DELIMITER, 
LEFT PARENTHESIS IN READ STATEMENT, 
LEFT PARENTHESIS IN READ REVERSE 

FILE IN READ STATEMENT, 
RELEASE INDICATOR. 
FILE DELIMITER IN READ STATEMENT 
FORMAT DELIMITER IN READ STATEMENT. 
DELIMITER FOR SECOND PARAMETER IN READ 

ROW DESIGNATOR IN READ STATEMENT. 
ROW DESIGNATOR DELIMITER IN READ 



ROW DESIGNATOR IN READ STATEMENT. 
DELIMITER PRECEEDING THE LIST IN A READ 

FAREADORSPACESTATEMENTJIMPROPER END OF 

N READ OR SPACE STATEMENT. 

F ARE ADOR SPACE STATEMENT: I MPROPER PARITY 

D OR SPACE STATEMENT, 

FARE ADOR SPACE STATEMENT: MISSING RIGHT 

EAD OR SPACE STATEMENT, 

LEFT PARENTHESIS IN SPACE STATEMENT. 
R FILE IDENTIFIER IN SPACE STATEMENT, 

COMMA IN SPACE STATEMENT, 

RIGHT PARENTHESIS IN SPACE STATEMENT. 

LEFT PARENTHESIS IN A WRITE STATEMENT, 
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c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



c 



c 

c 



u 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 

o 



270000 

271000 

272000 

273000 

274000 

275000 

276000 

277000 

278000 

279000 

2B0OOO 

281000 

282000 

283000 

284000 

285000 

286000 

287000 

288000 

289000 

290000 

291000 

292000 

293000 

294000 

295000 

296000 

297000 

298000 

299000 

300000 

301000 

302000 

303000 

304000 

305000 

305001 

305002 

305100 

306200 

306300 

400000 

401000 

403000 

404000 

405000 

406000 

410000 

411000 

490000 



4 39 
440 

441 
442 

44 3 

444 
4 45 

446 
4 47 

448 
4 49 
450 
451 
452 

45 3 

454 
455 
456 
457 
458 

459 
460 
461 
462 

46 3 

464 

465 

500 
520 
521 
600 
601 
602 
603 
604 
605 
610 
611 



WRITESTHTJIMPROPER FILE IDENTIFIER IN A WRITE STATEMENT. 
WRITESTMTJIMPROPER DELIMITER FOR FIRST PARAMETER IN A 

WRITE STATEMENT, 
WRITESTMTJMISSING RIGHT BRACKET IN CARRIAGE CONTROL PART 

OF A WRITE STATEMENT. 
WRITESTMT:ILLE6AL CARRIAGE CONTROL DELIMITER IN A WRITE 

STATEMENT, 
WRITESTMT:IMPR0PER SECOND PARAMETER DELIMITER IN WRITE 

STATEMENT. 
WRITESTMT IMPROPER ROW DESIGNATOR IN A WRITE STATEMENT. 
WRITESTMTIMISSING RIGHT PARENTHESIS AFTER A ROW DESIGNATOR 

IN A WRITE STATEMENT, 
WRITESTMTIMISSING ROW DESIGNATOR IN A WRITE STATEMENT. 
WRITESTMTIIMPROPER DELIMITER PRECEEDING A LIST IN A WRITE 

STATEMENT, 
WRITESTMTUMPROPER LIST DELIMITER IN A WRITE STATEMENT, 
READSTMTUMPRQPER LIST DELIMITER IN A READ STATEMENT. 
L0CKSTMT:MISSING LEFT PARENTHESIS IN A LOCK STATEMENT, 
LOCKSTMT:IMPROPER FILE PART IN A LOCK STATEMENT, 

IN A LOCK STATEMENT. 
DISPOSITION PART IN A LOCK 



lockstmtimissing comma 
lockstmtjimproper unit 

statement, 
lockstmt:missing right 
closestmtsmissing left 
closestmtsimproper file 
closestmtimissing comma 
closestmtsimproper unit 

statement, 
closestmtjmissing right 



LOCK STATEMENT. 
CLOSE STATEMENT, 
STATEMENT. 



PARENTHESIS IN A 

PARENTHESIS IN A 
PART IN A CLOSE 
IN A CLOSE STATEMENT. 
DISPOSITION PART IN A CLOSE 



PARENTHESIS IN 



TABLE 
TARLE 
DOLLA 
DOLLA 
DOLLA 
DOLLA 
DOLLA 
DOLLA 
READA 
READA 



A CLOSE STATEMENT, 
RWNDSTMTSMISSING LEFT PARENTHESIS IN A REWIND STATEMENT, 
RWNDSTMTJIMPROPER FILE PART IN A REWIND STATEMENT. 
RWNDSTMT:MISSING RIGHT PARENTHESIS IN A REWIND STATEMENT, 
BLOCKSA MONITOR DECLARATION APPEARS IN THE SPECIFICATION 

PART OF A PROCEDURE, 
BLOCKSA DUMP DECLARATION APPEARS IN THE SPECIFICATION PART 

OF A PROCEDURE. 
INLINE: MISSING PARAMETER IDENTIFIER IN INLINE STREAM 

STATEMENT PARAMETER LIST, 
.ID: NEEDS DOUBLE PERIOD FOR PRTE IF PAST 512 
: STRING LONGER THAN ONE WORD (48 BITS), 
: STRING CONTAINS A NON-PERMISSIBLE CHARACTER. 



RCARD 
RCARO 
RCARD 
RCARD 
RCARD 
RCARD? 

card: 



NUMBER EXPECTED. 
OPTION IDENTIFIER EXPECTED. 
TOO MANY USER-DEFINED OPTIONS, 
UNRECOGNIZED WORD OR CHARACTER. 
MISMATCHED PARENTHESES, 
* IN CARD COLUMN 1 FOR OMIT CARD 
SEQUENCE ERROR, 



CARD: ERROR LIMIT HAS BEEN EXCEEDED, 



LABEL 000OO00OOLPAPRNT0O176278?USER=B57O0 



EXECUTE COPY /B5700 



COPY /B5700 



c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 






c 
o 
o 
c: 



LABEL OOO000OOOLPAPRNT0O176153?US£R=SP0 ; EXECUTE COPY 

FILEJ SYMBOL/ ESPOL 



VSPO 

TUES 6/01/76 03J 18PM 



COPY /SPO 



PAN M SS 
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1020 

1030 
1040 
1050 
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1070 
1072 
1073 
*074 
1075 
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1077 
1078 
1079 
1080 
1081 
1082 
HlQ 
1120 
1130 

1140 
2000 

3000 
4000 

5 000 

6000 

7000 

. 8000 

9000 

10000 

11000 

12000 

13000 
14000 

15000 
16000 

17000 
18000 
19000 

20000 
21000 

22000 
23000 

24000 
25000 

26000 
27000 
28000 
29000 



B-5700 ESPOL COMPILER 
MARK XVI, 0,00 
OCT 1* 1974 



comment? * titles b5500/b 

* file id! symbo 
' * this material 

* and is not to 

* except In acco 

* written author 

* burroughs corp 

* 

* COPYRIGHT (C) 

* BURRQUGH 

* AA320206 AA 
COMMENT #################### 

ERROR ME 



5700 MARK XVI SYSTEM RELEASE 

L/ESPOL TAPE ID! SYMBOLl /F ILEOOO 

IS PROPRIETARY TO BURROUGHS CORPORATION 

BE REPRODUCED* USED, OR DISCLOSED 

RDANCE wlTH PROGRAM LICENSE OR UPON 

IZATlON OF THE PATENT DIVISION OF 

ORATION* DETROIT* MICHIGAN 48232 



* 



1971* 1972* 1974 

S CORPORATION * 

393180 AA332366 *; 

SSAGES 



ERROR 
000 

001- 

002 
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004 
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007 
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OH 
012 

013 



number rqutlneserr 

Block? dec 

block' ide 

PROCEDuREDE 



BL0 C KJ NGN 

LIS 

PROCEDUREDE 

PROCEDUREDE 
PROCEDUREDE 
PROCEDUREDE 

PROCEDUREDE 
PROCEDuREDE 
PROCEDUREDE 



PROCEDUREDE 
PROCEDUREDE 



PROCEDUREDEC' 



OR MESSAGE 

LARATlON NOT FOLLOWED BY SEMICOLON, 

NTIFIER DECLARED TWICE In SamE BlOCk. 

cs specification part contains 
identifier not appearing in' 
formal parameter part. 

-identifier appears in identifier 

t of declaration, 

cj stream procedure declaration 

preceded" by Illegal declarator. 
c: procedure declaration preceded 

by illegal declarator, 
cj procedure identifier used before 

in same blockcnot forward), 
c procedure identifier not Followeo 

BY ( OR SEMICOLON IN PROCEDURE 
DECLARATION. 
C; FORMAL PARAMETER LIST NOT ' FOLLOWED 
BY ). 

C; formal parameter part not followed 

BY SEMICOLON, 
CS VALUE PART CONTAINS IDENTIFIER 

WHICH DID NOT APPEAR IN FORMAL 

PARAPART, 
C! VALUE PART NOT ENDED BY SEMICOLON, 
CJ' MISSING OR ILLEGAL SPECIFICATION 

PART. 

OWN USED IN ARRAY SPECIFICATION, 
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NO 
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G 
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30000 
31000 

32000 
33000 
34000 

35000 
36000 

37000 
38000 
39000 
40000 
41000 
42000 
43000 
44000 
45000 
46000 
47000 

48000 
49000 
50000 
51000 
52000 
53 00 
54000 
55000 

56000 
57000 

58000 
59000 

60000 
61000 
62000 

63000 
64000 

65000 
66000 
67000 
68000 
69000 
69100 
69500 
69510 
69520 

69530 
69540 

69560 

69570 

69980 

69990 
70000 

71000 
72000 
73000 
74000 
75000 
76000 



014 
015 

016 
017 

018 
019 

020 

021 

022 

023 

024 
025 



026 
027 

028 

029 
030 

031 
032 
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034 
035 
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037 
038 
040 

050 
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053 
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056 

057 
098 
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PROCEDUREDECI SAVE USED In ARRAY SPEC IF ICATI ON* 
BLOCKS DECLARATION PRECEDED BY ILLEGAL DECLARATOR. 



ARRAYDEC 



ID IN DECLARATION NOT FOLLOWED 



ARRAY DEC NOT 



ARRAY 

BY C . 

LOWER BOUND IN 

FOLLOWED BY t . 

bound pair list not followed by 3, 

illegal lower bound designator In 

array specification* 

own appears immediately before 

identifiercno type), 

save appears immediately before 

identifiercno type). 

stream appears immediately before 

identifier(the word procedure left 

OUT). 

DECLARATOR PRECEDED ILLEGALLY BY 

ANOTHER DECLARATOR. 

LABEL CANNOT BE PASSED TO FUNCTION. 

DECLARATOR OR SPECIFIER ILLEGALLY 

PRECEDED BY OWN OR SAVE OR SOME 

OTHER DECLARATOR. 

MISSING ( IN FILE DEC. 

no* of buffers in file dec must be 

an unsigned integer. 

illegal buffer part or save factor 

in file dec. 

MISSING ) In FILE DEC. 

PROCEDURE TYPE AT ACTUAL DECLARATION 

TIME DIFFERENT THAN AT FORWARD DEC. 

MISSING ( IN LISTDEC. 

MISSING ( IN FORMAT DEC. 

SWITCH DEC DOES NOT HAVE * OR 

FORWARD AFTER IDENTIFIER, 

SWITCHFILEDEC'MISSING «• AFTER FILED. 

SWITCHFILEDEC5N0N FILE ID APPEARING IN DECLARATION 

OF SWITCHFILE. 
SUPERFORMATDEC:FORMAT ID NOT FOLLOWED BY <• , 
supeRfqrmatdecsmissing ( AT START OF FORM A TPHRASE * 
superformatdecsformat segment >1022 words, 
segment: save code exceeds 4080 which keRNal can h/l 
anywhere! out of range of c relative addressing for constant 
block ; illegal f relative address exp in declaration 
blocks procedure whose body not a block 

arraydec; cant find right bracket in save array dec 
aRRaydec* fill Part of s a ve array dec longer than size 
arraydec? illegal dimension indicator in array dec 

SEqMENTSTARTJSAVE STORAGE NOT ALLOWED WITH INTRINSIC OPTION 
IOSTMTJ ILLEGAL SPECIFIER IN SCOPE STMT: MUST BE 215, 
INLINE! EXTRA : IN STREAM HEAD, 
ANYWHERE: UNDECLARED IDENTIFIER. 
CHECKER: AN ATTEMPT HAS BEEN MADE TO ADDRESS AN 

IDENTIFIER WHICH IS LOCAL TO ONE PROCEDURE AND GLOBAL 
TO ANOTHER. IF THE QUANTITY Is A PROCEDURE NAME OR 
AN OWN VARIABLE THIS RESTRICTION IS RELAXED, 
AEXP: CONDITIONAL EXPRESSION IS NOT OF ARITHMETIC TYPEH 
PRIMARY: PRIMARY MAY NOT BEGIN WITH A QUANTITY OF THIS 



ARRAYDEC: 

ARRAYDEC: 
ARRAYSPEC: 

BLOCK: 

BLOCK? 

BLOCKS 

BLOCKS 

proceduredec 
block: 



FILEDEC: 
FILEDEC: 

FILEDEC! 

FILEDEC: 
PROCEDUREDEC: 

LISTDEC: 

fqrmaTdec 

SwlTCHDEC: 
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77000 
78000 

79000 

80000 

81000 
82000 

83000 
84000 
85000 

86000 
87000 

88000 

89000 

90000 
91000 

92000 
93000 
94000 

95000 
96000 
97000 
98000 

99000 
100000 
101000 

102000 
103000 

104000 
105000 

l0 6 000 
107000 

108000 
109000 
110000 
111000 
112000 

113 00 
114000 
115000 

116000 
117000 

118000 
119000 

120000 
121000 
122000 
123000 
124000 

125000 
126000 

127000 
128000 
129000 

130000 
131000 
132000 
133000 



104 

105 

106 

107 
108 

109 
110 

111 

112 

113 
114 

115 
116 
117 
118 
119 
120 
121 



122 

123 

124 

125 
126 

127 

128 

129 
13 
131 
132 
133 
134 

135 
136 

137 
138 

139 
140 

141 



TYPE. 
ANYWHERE? MISSING RIGHT PARENTHESIS. 
ANYWHERE' MISSING LEFT PARENTHESIS, 
PRIMARY* PRIMARY MAY NOT START WITH DECLARATOR, 
BEXPt THE EXPRESSION IS NOT OF BOOLEAN TYPE. 
EXPRSS; A RELATION MAY NOT HAVE CONDITIONAL EXPRESSIONS 

AS THE ARITHMETIC EXPRESSIONS. 
BOOSEC>SIMPBQO> AND BOOCOMP: THE PRIMARY IS NOT BOOLEAN, 
BOOCOMP: A NON-BOOLEAN OPERATOR OCCyRS IN A BOOLEAN 

EXPRESSION, 
BQOPRlM* NO EXPRESSION (ARITHMETIC, BOOLEAN* OR DESIGNA- 

TlONAL) MAY BEGjN WITH A QUANTITY OF THIS TYPE, 
BQQPRlM' NO EXPRESSION (ARITHMETIC* BOOLEAN' OR GESTA- 
TIONAL) MAY BEGIN WUH A DECLARATOR. 
PARSES EITHER THE SYTAX r THE RANGE OF THE LITERALS F R 

A CONCATENATE OPERATOR IS INCORRECT. 
DOTSYNTaXJ EITHER THE SYNT A X OR THE RaNGe OF THE LlT£R A LS 

FOR A PARTIAL WORD DESIGNATOR IS INCORRECT. 
DEXP! THE EXPRESSION IS NOT OF DES IGNAT IONAL TYPE, 
IFCLAUSEJ MISSING THEN, 
BANAS MISSING LEFT BRAKET. 
BANA? MISSING RIGHT BRA«ET. 
COMPOUNDTAlLJ MISSING SEMICOLON OR END. 
COMPOUNqTaILJ MISSiNq end. 

actualparapart* an indexed file may be passed by name 
only and only to a stream procedure - the stream 

PROCEDURE MAY NOT DO A RELEASE ON THIS TYPE PARA- 
METER. 

actualparapart: stream procedure may not have an 
expression passed to it by name. 

ACTUaUP A Ra p aRTJ THE A CTU A L A^D FORM A L PARAMETERS DO NOT 

• AGREE AS TO TYPE. 
ACTUALPARAPART! ACTUAL AND pORMAL ARRAYS 00 NOT HAVE SAM E 

NUMBER OF DIMENSIONS, 
ACTUALPARAPART: STREAM PROCEDURES MAY NOT BE PASSED As A 

PARAMETER TQ A PROCEDURE. 
ACTUALPARAPART: NO ACTUAL PARAMETER MAY BEGIN WITH A 

QUANTITY Of THIS TYPE, 
ACTUALPARAPART* T H IS TYPE QUANTITY MAY NOT BE PASSED TO A 

STREAM PROCEDURE, 
ACTUALPARAPART: EITHER ACTUAL AND FORMAL PARAMETERS DO 

NOT AGREE AS TO NUMBER, OR EXTRA RIGHT PARENTHESIS. 
ACTUALPARAPART* ILLEGAL PARAMETER DE L lMlTER. 
RELSESTMTJ NO FILE NAME. 
OOSTMT: MiSSiNq UNTIL, 
WHILESTMT' MISSING DO. 

LABEt-R: MISSING C OLON, 

LABELR' THE LABEi. W aS NOT DECLARED In THIS BLOCK. 

labelr! the label has already occured, 
formaTphraSes- Improper format editing phrase, 
formatphrase: a format editing phrase does not have an 

integer where an integer is required, 
formatphrase? the width i s too small "in e or f edi tlng 

PHRASE. 

table: define is nested more than eight deep, 
nextent: an integer in a format is greater than 1023, 
scanner: integer or identifier has more than 63 
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134000 
135000 

136000 
137000 
138000 
139000 
140000 
141000 
142000 
143000 

144000 
145000 

146000 
147000 

148000 
149000 
150000 
151000 
152000 
153000 
154000 
155000 
156000 

157000 
158000 
159000 

160000 
161000 

162000 
163000 

16*000 
165000 
166000 

167000 
168000 
169000 
170000 
171000 
172000 

173000 
174000 
175000 

176000 
177000 

178000 
179000 

180000 
181000 
182000 
183000 
184000 
185000 
186000 

187000 
188000 

189000 

190000 



142 

143 
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145 
146 



147 

148 

149 

150 

151 
152 
153 
154 

155 
156 

157 

158 
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161 
163 
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200 

201 
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203 
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206 
207 
208 
209 

210 

211 
250 
251 

252 
253 

254 
255 

256 

257 



WITH THIS TYPE IDENTIFIER. 
START WITH THIS TYPE QUANTITY, 
START WITH A DECLARATOR - MAY BE 
PROCEDURE OR A" MISPLACED 



EXPRESSIONS IN A SWITCH 



CELLS 
FOR THIS 

TO 



CHARACTORS, 
DEFINEGENJ A DEFINE CONTAINS MORE THAN 2047 CHARACTORS 

(BLANK SUPPRESSED). 
COMPOUNDTAILS EXTRA END. 
STMTS NO STATEMENT MAY START 
STMT; NO STATEMENT MAY 
STMTJ NO STATEMENT MAY 

A MISSING END OF A 

DECLARATION. 
SWITCHGEN* MORE THAN 256 

DECLARATION. 
GETSPACE! MORE THAN 1023 PROGRAM REFERENCE TABLE 

ARE REQUIRED FOR THIS PROGRAM, 
GETSPACES MORE THAN 255 STACK CELLS ARE REQUIRED 

PROCEDURE. 
ACTUALPARAPART? CONSTANTS MaY NOT BE PASSED BY NAME 

stream procedures, 
forstmtj improper for index variable, 
fqrstmt: missing left arrow following index variable, 
forstmtj missing until or while in step element, 
forstmtj missing do in for clause, 
ifexpi missing else 

LISTELEMENT: A DESIGNaTIoNaL EXPRESSION MAY NqT BE A LIST 

ELEMENT. 
LISTELEMENT; A R°W DESIGN A TOR M A Y NOT BE A USTELEMeNT 

listelement; missing right braket in group of elements 

PRQCSTMt; ILLEGAL USE Op PROCEDURE OR FUNCTION IDENTIFIER 
PURGE; DECLARED LABEL DOES NOT OCCUR, 
PURGE} DECLARED FORWARD PROCEDURE DOES NOT OCCUR* 
ZiPSTmTJ MISSING COMMA IN ZIP STATEMENT 
FQRMATPHRASES THE WIDTH OF A FIELD IS MORE THAN 63. 
EMITS SEGMENT TOO LA«GE C > 4093SYLL ABLES ) . 
SIMPLE VARIABLES PARTIAL WORD DESIGNATOR NOT LEFT-MOST 
IN A LEFT PART LIST. 

simple variables missing . or * . 

subscripted variables wrong number of subscripts in a row 

designator, 
subscripted variable; missing ] in a row designator, 
subscripted variables a row designator appears outside of 

an actual parameter list or fill statement, 
subscripted variables missing 3. 
subscripted variable; missing c. 
subscripted variable; wrong number 
subscripted variables partial word 

most in a left part list. 
subscripted variables missing , or * . 

VARIABLE} PROCEDURE ID USED OUTSIDE OF SCOPE IN'LEFj PART* 
STREAM STMTS ILLEGAL STREAM STATEMENT. 

ANY STREAM STMT PROCEDURES MISSING «■ . 

index; MISSING + OR - . 

INDEXS MISSING NUMBER OR STREAM VARIABLE. 

EMlTCj NUMBER>63 OR NUMBER OF LABELS+L0CALS+F0RMALS>63. 

DSSS MISSING STRING IN DS* LIT STATEMENT. 

RELEASESS MISSING PARENTHESIS OR FILE IDENTIFIER IS NOT 

A FORMAL PARAMETER. 
GOTOS, LABELS, OR JUMPSS LABEL SPECIFIED IS NOT ON THE SAME 

NEST LEVEL AS A PRECEDING APPEARANCE OF THE 
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OF SUBSCRIPTS. 
DESIGNATOR NOT 
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191000 
192000 
193000 
194000 

195000 
196000 
197000 
198000 
199000 
200000 

2 oiooo 

202000 
20.3000 

204000 
205000 

206000 
207000 
208000 
209000 
210000 
211000 
212000 

213000 
214000 

215(300 
216000 
217000 
218000 
218110 
219000 
220000 

221Q00 
222000 
223000 
224000 
225000 

226000 
227000 

228000 
229000 

23 0000 
231000 
232000 

233000 
234000 

235000 
236000 

237000 
238000 

239000 
240000 
241000 
242000 
243000 

244000 
245000 

246000 
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259 
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263 
264 
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268 
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281 
282 
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284 
285 
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3o2 
303 
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306 
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401 
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404 
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4 0g 
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414 
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LABEL, 
LABELS? MISSING :. 

Labelsi label appears MORE than ONCE. 

GOTOSt MISSING LABEL IN A GO TO OR JUMP OUT TO STATEMENT. 

JUMPS? MlSSlNQ OUT IN JUMP OUT STATEMENT. 

NESTS; MISSING PARENTHESIS. 

IFS:MISSING SC IN IF STATEMENT, 

IFS; MISSING RELATIONAL IN IF STATEMENT, 

IFS: MISSING ALPHAjDC OR STRING IN IF STATEMENT. 

IFS! MISSING THEN INIF STATEMENT, 

FREDFIX: THERE ARE GO TO STATEMENTS IN WHICH THE LABEL IS 

UNDEFINED. 
EMlTC! A REPEAT INDEX * 64 W AS SPECIFIED OR TOO MANY 

FORMAL PARAMETERS, LOCALS AND LABELS. 
TABLE' A CONSTANT IS SPECIFIED WHICH IS T Q LARGE 
OR TOO SMALL. 



o 



dblstmtj 

DBLSTMT: 
DBLSTMT: 

dblstmtj 

DBLSTMT: 
FILLSTMT! 

fillstmt: 

fillstmt: 
fillstmt: 

fillstmt* 
fillstmt: 

fill st mt: _._ ,. 

MERRlMAC:MlSSlNG 

merrImac*mIssi n g 



MISSING (, 

too many operators, 
too many qpeRaNdS, 

MISSING * , 
MISSING ) , 

THE IDENTIFIER FOLLOWING "FILL" IS NOT 

AN ARRAY IDENTIFIER. 

MISSING "WITH" IN FILL STATEMENT, 

IMPROPER FILL ELEMENT. 

NON-OCTAL CHARACTER IN OcTaL FILL. 

IMPROPER ARRAY ROW DESIGNATOR IN FILL. 

ATA IN FI LL EXCEED S 1023 WOR D S, 

ODD NUMBER OF PARENTHESES In FIm • 
FILE 10 IN MONITOR DEC, 
LEFT PARENTHESIS I N MONITOR DEC 



FOR MONITOR LIST ELEMENT' 
EXPRESSION DELIMITER IN 

SUBSCRIPTS IN MONITOR LlST 



MERRIMAC {IMPROPER SUBSCRIPT 
MERRIMAC«IM p rO p er SUBSCRlpT 

MONITOR LIST ELEMENT. 
MeRRiMacUMPROPeR NUM B £R OF 

ELEMENT. 
MERRiMACsLABEL OR SWITCH MONITORED AT IMPROPER LAVEl, 
MERRlMAC'lMPROPER MONITOR LIST ELEMENT, 
MERRlMACjMlsSlNG RIGHT PARENTHESIS IN MONITOR DECLARATION. 

merrlmac'lmprqper monitor declaration delimiter, 
dmupjmlsslng file identifier in dump declaration. 
dmupsmissiNq left RaRentheSis in dump declaration, 

OMUP'SUBsCRIPtED VARIABLE In DUMP LlST h As WRONG NUMBER OF 

SUBSCRIPTS, 
D M Up:SU B SCRIpTED VARIABLE In DUMP LIST HAS WRONG NUMBER OF 

SUBSCRIPTS, 
DmUP» IMPROPER ARRAY DUMP LIST ELEMENT, 

dmup?lllegal dump list element. 

d mup;mo rE than 100 Labels appear as dump list elements 

in one dump declaration, 
qmupulleqal dump list element delimiter. 
dmup:missing dump label in dump declaration. 

DMUPtMiSSlNG COLON jN DUMP DECLARATION, 
DMUPUMPROPER DUMP DECLARATION DELIMITER, 
READSTMTtMlSSlNG LEFT PARENTHESIS IN READ STATEMENT. 
READSTMTJMISSING LEFT PARENTHESIS IN READ REVERSE 
STATEMENT, 
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247000 
248000 
249000 
250000 

251000 
252000 
253000 
254000 
255000 
256000 
257000 

258000 
259000 

260000 
261000 
262000 
263000 
264000 

265000 
266000 
267000 
268000 
269000 

270000 
271000 

272000 
273000 
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275000 

276000 
277000 
278000 
279000 
280000 

281000 
282000 
283000 
284000 
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286000 
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288000 
289000 
290000 

291000 
292000 
293000 
294000 
295000 
296000 

297000 
298000 
299000 
300000 
301000 
302000 

303000 
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463 



readstmt:missing file in read statement. 

readstmt:imprqper release indicator, 

file delimiter in read 
format delimiter in rea 
delimiter for second pa 



DESIGNATOR 
DESIGNATOR 



IN READ 
DELIMITS 



readstmtslmprqper 
readstmtsimproper 
readstmtjlmproper 

statement, 
readstmtumproper row 
readstmt: improper row 

STATEMENT. 

readstmt5missing row designator in read s 
readst m tumprqper delimiter PRECEEDInG th 

statement. 
h a ndletheTailendOfaReadorspacest a tementsi 

file label in read or space statemen 
handlethetailendofareadorspacestatement: I 

label in read or space statement, 
handlethetaIlendofareadorspacestatementim 

bracket in read or space statement, 
spacestmtsmissing left parenthesis in spa 
spacestmtjimproper file identifier in sp a 
spacestmt'missing comma in space statemen 
spacestmtjmissing Right parenthesis in sp 
writestmtsmissing left parenthesis in a w 
wrItEstmtjImproper file identifier in a w 
writestmTjimproper delimiter for first pa 

write statement, 
writestmtsmissing right bracket in carria 

of a write statement. 
writestmt?illegaL carriage control delimi 

statement, 
writestmtumproper second parameter delim 

statement, 
wrItEstmtjImproper row designator in a wr 
writestmt:missi n g right parenthesis after 

in a write statement, 
writestmtsmissing row designator in A WRI 
writestmt j improper delimiter preceeding a 

statement, 
writestmtsimproper list delimiter in a wr 
readstmtjimproper list delimiter in a rea 
lockSTmtsmissing left parenthesis in a lo 
lockstmtsimpropeR file part in a lock sta 

LOCKSTMTSMISSING cOMMa 

lockstmtsimproper unit 

statement, 
lockstmtsmissing right 
closestmtsmissing left 

closestmtsimproper file 
closestmtsmissing comma 

CLOSESTMTSIMprOpER UNIT 

STATEMENT. 
CLOSESTMTSMISSING RIGHT PaRENTHESIS IN A 

rwndstmtsmissing left parenthesis in a re 
rwndstmtsimproper file part in a rewind s 
rwndstmtsmissing right parenthesis in a r 
blocksa monitor declaration appears In th 
part of a procedure. 



IN A LOCK STATEMEN 
DISPOSITION PART I 



PARENTHESIS IN A L 

PARENTHESIS IN A C 

PART IN A CLOSE S 

IN A CLOSE STATEM 

DISPOSITION PART 



STATEMENT 
D STATEMENT. 
RAMETER IN READ 

STATEMENT. 
R IN READ 

TATEMENT. 

E LIST In A READ 

mpropeR end of 

T, 

MPROPER PARITY 

ISSlNG RIGHT 

CE STATEMENT. 
CE STATEMENT, 

T. 

ACE STATEMENT, 

RITE STATEMENT. 

RITE statement, 

RAMETER IN A 
GE CONTROL PART 
TeR IN a WRITE 
ITER IN WRiTE 

ITE statement* 

A ROW DESIGNATOR 

TE STATEMENT, 
LIST IN A WRITE 

ITE STATEMENT, 

D STATEMENT. 

CK STATEMENT, 

TEMENT. 

T, 

N A LOCK 

OCK STATEMENT, 

LOSE STATEMENT. 

TATEMENT. 

ENT. 

IN A CLOSE 

CLOSE STATEMENT. 

wind statement, 

tatement. 

ewind statement, 

e specification 
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304000 
305000 
305001 
305002 
305100 
306200 
306300 
400000 
401000 

403000 
404000 

405000 
406000 
410000 
411000 
490000 
500000 
501000 

502000 
503000 
504000 
504100 
504150 

504700 
505000 

506000 
507000 

5 08000 
509000 
510000 

511000 
512000 

523000 
524000 

5 2 5000 
526000 
527000 
528000 
529000 
530000 
531000 
532000 
533000 
534000 
535000 
536000 
537000 
538000 

1000000 
1000800 
1000802 
1000860 
1000902 
1000904 
1000910 
1000920 
1000930 



464 BLOCK 

465 INLIN 
500 .IDS 

520 tables str 

521 table': str 

600 dollarcard 

601 DOLLARCARD 

602 DOLLARCARD 

603 " DOLLARCARD 

604 DOLLARCARD 

605 DOLLARCARD 

610 READACARD* 

611 ReAdAcARd? 



SA DUMP DECLARATION 
OF A PROCEDURE, 

EJ MISSING PARAMETER IDENTIFIER 
STATEMENT PARAMETER LIST, 
NEEDS DOUBLE PERIOD FOR 
ING LONGER THAN ONE 
ING CONTAINS 



APPEARS IN THE SPECIFICATION PART 
IN INLINE STREAM 
512 



PRTE IF PAST 
w„ t WORD (48 BITS), 
A NON-PERMISSIBLE CHARACTER. 



NUMBER EXPECTED. 

OPTION IDENTIFIER EXPECTED. 

TOO MANY USER-DEFINED OPTIONS. 

UNRECOGNIZED WqRD qR CHARACTER. 

MISMATCHED PARENTHESES. 
$ IN CARD COLUMN 1 FOR OMIT CARD 
SEQUENCE ERROR. 
ERROR LIMIT HAS B EEN EXCEEDED. 



begin comment outermost block; 
Integer errorcqunt; comment number of error msgs, m cp wi ll type 

syntx err at eoj if this is non-zero, must be pr+25! 

INTEGER SaVeTIMe; C°MMeNT SaVE^FacTOr fO R cQDE FILE' GIVEN BY M C p. 

if compile & go so, for syntax* =-1. must be at r+26; 
integer ca r qnum b erj % se<3 # of card being processed. 
Integer cardcount; % number of cards processed, 
boolean buildline; 

COMMENT RRl-RRll ARE USED In SqmE PROCEDURES In 
PLACE QF LOCALS TO SAVE STACK SPACE; 
REAL RR1>RR2'Rr3'RR4'Rr5>rr6>rr7*rr8*rr9* R ri0, rr ii; 

COMMENT SOME OF THE RRI ARE USED TO PASS FILE INFORMATION 

TO THE MAIN BLOCK; 
COMMENT ExAMlN RE T uRNs t h E CHARACTER A T ABSOLUTE ADDRESS NCR; 

Real stream procedure examincncr); value ncr; 

begin si«- n cr;di«-lqc examIn;di*di+7; DS*cHr EnD; 
integer stream procedure getf ( q);value q; 

BEGIN Sl«- L oc GETF; SI *Sl -7 JDl«"LOC Q;DI<-DI + 5; 

SKIP 3 DB; 9(IF sB THEN DS*SET ELSE DS«-RESET> SKIP SB); 
DI«-LO C Q;SI<.Q;dS«-WdS;Si«-Q;geTf«-Si 

end getf; 

C OMM E NT START S E TTINg UP FILe PARAM e TeRs; 

IF EXAMIN<RR11*GeTFC3) + «y08») *12 THEN RRl*5 ELSE 

BEGIN RRi*2;RR2*150 END; 

IF EXAMlN(RRll+5) X12 THEN RR3<-4 E lS£ 

BEGIN RR3«-2; RR4«-l50 END; 

IF EXAMIN(RRU + 10) = 12 THEN 

BEGIN RR5«-2;rr6«-1Q;rr7*-15Q END ELSE 

BEGIN RR5«-i;RR6«-56;RR74.10 £ND' 

IF EXAMIN(RR11+15)=12 THEN 

BEGIN RR8«-10;RR9«-150 END ELSE 
BEGIN RR8<-56;RR9«-lQ END; 
BEGIN COMMENT MAIN BLOCK; 

INTEGER OPlNX; % US£D FOR INDEXING INTO OPTIONS aRRaY. 
BOOLEAN SETTING; % USED BY DOLLARCARD FOR AN OPtION"S SETTING, 

INTEGER NEWINX# AODVALUE* BASENUM, TOTALNO; 
DEFINE OPARSIZE * 200 #; 
ARRAY 'QPTIONSCOJOPARSIZEi; 
BOOLEAN OPTIONWORD; 
DEFINE CHECKBIT = U, 

DEBUGBIT = 2t f 
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